home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / hiresgourwall.s < prev    next >
Encoding:
Text File  |  1997-01-31  |  20.7 KB  |  1,579 lines
  1.  
  2. *********************************** 
  3.  
  4. * The screendivide routine is simpler
  5. * using a0=left pixel
  6. * a2= right pixel
  7. * d0= left dist
  8. * d2= right dist
  9. * d4 = left strip
  10. * d5 = right strip
  11.  
  12. * (a0)=leftx
  13. * 2(a0)=rightx
  14.  
  15. * 4(a0)=leftbm
  16. * 6(a0)=rightbm
  17.  
  18. * 8(a0)=leftdist
  19. * 10(a0)=rightdist
  20.  
  21. * 12(a0)=lefttop
  22. * 14(a0)=righttop
  23.  
  24. * 16(a0)=leftbot
  25. * 18(a0)=rightbot
  26.  
  27.  
  28. DoleftendGOUR:
  29.  
  30.  move.w leftclip,d0
  31.  sub.w #1,d0
  32.  move.w d0,leftclipandlast
  33.  
  34.  
  35.  move.w (a0),d0
  36.  move.w 2(a0),d1
  37.  sub.w d0,d1
  38.  bge.s sometodrawG
  39.  rts
  40. sometodrawG:
  41.  move.w itertabG(pc,d1.w*4),d7
  42.  swap d0
  43.  move.w itertabG+2(pc,d1.w*4),d6
  44.  clr.w d0
  45.  swap d1
  46.  clr.w d1
  47.  asr.l d6,d1
  48.  move.l d1,(a0)
  49.  
  50.  bra pstitG
  51.  
  52. itertabG:
  53.  incbin "ab3:includes/iterfile"
  54.  
  55. pstitG:
  56.  
  57.  moveq #0,d1
  58.  move.w 4(a0),d1
  59.  moveq #0,d2
  60.  move.w 6(a0),d2
  61.  sub.w d1,d2
  62.  swap d1
  63.  swap d2
  64.  asr.l d6,d2
  65.  move.l d2,4(a0)
  66.  
  67.  moveq #0,d2
  68.  move.w 8(a0),d2
  69.  moveq #0,d3
  70.  move.w 10(a0),d3
  71.  sub.w d2,d3
  72.  swap d2
  73.  swap d3
  74.  asr.l d6,d3
  75.  move.l d3,8(a0)
  76.  
  77.  moveq #0,d3
  78.  move.w 12(a0),d3
  79.  moveq #0,d4
  80.  move.w 14(a0),d4
  81.  sub.w d3,d4
  82.  swap d3
  83.  swap d4
  84.  asr.l d6,d4
  85.  move.l d4,12(a0)
  86.  
  87.  moveq #0,d4
  88.  move.w 16(a0),d4
  89.  moveq #0,d5
  90.  move.w 18(a0),d5
  91.  sub.w d4,d5
  92.  swap d4
  93.  swap d5
  94.  asr.l d6,d5
  95.  move.l d5,16(a0)
  96.  
  97.  
  98. *** Gouraud shading ***
  99.  moveq #0,d5
  100.  move.w 26(a0),d5
  101.  sub.w 24(a0),d5
  102.  add.w d5,d5
  103.  swap d5
  104.  asr.l d6,d5
  105.  move.l d5,28(a0)
  106.  moveq #0,d5
  107.  move.w 24(a0),d5
  108.  add.w d5,d5
  109.  swap d5
  110.  move.l d5,24(a0)
  111.  
  112. *** Extra Gouraud Shading ***
  113.  
  114.  moveq #0,d5
  115.  move.w 34(a0),d5
  116.  sub.w 32(a0),d5
  117.  add.w d5,d5
  118.  swap d5
  119.  asr.l d6,d5
  120.  move.l d5,36(a0)
  121.  moveq #0,d5
  122.  move.w 32(a0),d5
  123.  add.w d5,d5
  124.  swap d5
  125.  move.l d5,32(a0)
  126.  
  127.  bra screendivideGOUR
  128.  
  129. TOPBRCOUNT: dc.l 0
  130. BOTBRCOUNT: dc.l 0
  131.  
  132. screendivideGOUR:
  133.  
  134.  or.l #$ffff0000,d7
  135.  move.w leftclipandlast(pc),d6
  136.  move.l #WorkSpace,a2
  137.  
  138.  move.l (a0),a3
  139.  move.l 4(a0),a4
  140.  move.l 8(a0),a5
  141.  move.l 12(a0),a6
  142.  move.l 16(a0),a1
  143.  
  144.  
  145. scrdivlopG:
  146.  
  147.  swap d0
  148.  cmp.w d6,d0
  149.  bgt scrnotoffleftG
  150.  swap d0
  151.  add.l a4,d1
  152.  add.l a5,d2
  153.  add.l a6,d3
  154.  add.l a1,d4
  155.  add.l a3,d0
  156.  move.l 28(a0),d5
  157.  add.l d5,24(a0)
  158.  move.l 36(a0),d5
  159.  add.l d5,32(a0)
  160.  
  161.  dbra d7,scrdivlopG
  162.  rts
  163.  
  164. scrnotoffleftG:
  165.  
  166.  move.w d0,d6
  167.  
  168.  cmp.w rightclip(pc),d0
  169.  bge.s outofcalcG
  170.  
  171. scrnotoffrightG:
  172.  
  173.  
  174.  move.w d0,(a2)+
  175.  move.l d1,(a2)+
  176.  move.l d2,(a2)+
  177.  move.l d3,(a2)+
  178.  move.l d4,(a2)+
  179.  move.l 24(a0),(a2)+
  180.  move.l 32(a0),(a2)+
  181.  swap d0
  182.  add.l a3,d0
  183.  add.l a4,d1
  184.  add.l a5,d2
  185.  add.l a6,d3
  186.  add.l a1,d4
  187.  move.l 28(a0),d5
  188.  add.l d5,24(a0)
  189.  move.l 36(a0),d5
  190.  add.l d5,32(a0)
  191.  add.l #$10000,d7
  192.  dbra d7,scrdivlopG
  193.  
  194. outofcalcG:
  195.  swap d7
  196.  tst.w d7
  197.  bge.s .somethingtodraw
  198.  rts
  199. .somethingtodraw:
  200.  
  201.  move.l #consttab,a1
  202.  move.l #WorkSpace,a0
  203.  
  204. ; tst.b seethru
  205. ; bne screendividethru
  206.  
  207.  tst.b FULLSCR
  208.  bne scrdrawlopGB
  209.  
  210.  tst.b DOUBLEWIDTH
  211.  bne scrdrawlopGDOUB
  212.  
  213. scrdrawlopG:
  214.  
  215.  move.w (a0)+,d0
  216.  move.l FASTBUFFER,a3
  217.  lea (a3,d0.w),a3
  218.  move.l (a0)+,d1
  219.  
  220. ; bra pastscrinto
  221. ;
  222. ; 
  223. ;pastscrinto 
  224.  
  225.  swap d1
  226.  
  227.  move.w d1,d6
  228.  and.w HORAND,d6
  229.  move.l (a0)+,d2
  230.  swap d2
  231.  add.w fromtile(pc),d6
  232.  add.w d6,d6
  233.  move.w d6,a5
  234.  move.l (a0)+,d3
  235.  swap d3
  236.  add.l #divthreetab,a5
  237.  move.w (a5),StripData
  238.  
  239.  move.l ChunkAddr,a5
  240.  moveq #0,d6
  241.  move.b StripData,d6
  242.  add.w d6,d6
  243.  move.w VALSHIFT,d4
  244.  asl.l d4,d6
  245.  add.l d6,a5
  246.  move.l (a0)+,d4
  247.  swap d4
  248.  addq #1,d4
  249.  move.w d2,d6
  250. ***************************
  251. * old version
  252.  asr.w #7,d6
  253. ***************************
  254. ; asr.w #3,d6
  255. ; sub.w #4,d6
  256. ; cmp.w #6,d6
  257. ; blt.s tstbrbr
  258. ; move.w #6,d6
  259. ;tstbrbr:
  260. ***************************
  261.  move.l (a0)+,d5
  262.  swap d5
  263.  move.w d7,-(a7)
  264.  ext.w d5
  265.  move.w d6,d7
  266.  add.w d5,d7
  267.  bge.s .brnotneg
  268.  moveq #0,d7
  269. .brnotneg
  270.  cmp.w #62,d7
  271.  blt.s .brnotpos
  272.  move.w #62,d7
  273. .brnotpos
  274.  
  275.  move.l (a0)+,d5
  276.  swap d5
  277.  ext.w d5
  278.  add.w d5,d6
  279.  bge.s .brnotneg2
  280.  moveq #0,d6
  281. .brnotneg2
  282.  cmp.w #62,d6
  283.  blt.s .brnotpos2
  284.  move.w #62,d6
  285. .brnotpos2
  286.  
  287.  asr.w #1,d6
  288.  asr.w #1,d7
  289.  sub.w d6,d7
  290.  
  291.  move.l PaletteAddr,a4
  292. ; move.l a2,a4
  293. ; add.w ffscrpickhowbright(pc,d6*2),a2
  294. ; and.b #$fe,d6
  295. ; add.w ffscrpickhowbright(pc,d6*2),a4
  296.  
  297. ; btst #0,d0
  298. ; beq .nobrightswap
  299. ; exg a2,a4
  300. ;.nobrightswap:
  301.  
  302.  bsr ScreenWallstripdrawGOUR
  303.  move.w (a7)+,d7
  304.  
  305. toosmallG:
  306.  
  307.  dbra d7,scrdrawlopG
  308.  
  309.  rts
  310.  
  311. itsoddy:
  312.  add.w #4+4+4+4+4+4,a0
  313.  dbra d7,scrdrawlopGDOUB
  314.  rts
  315.  
  316. scrdrawlopGDOUB:
  317.  
  318.  move.w (a0)+,d0
  319.  btst #0,d0
  320.  bne.s itsoddy
  321.  move.l FASTBUFFER,a3
  322.  lea (a3,d0.w),a3
  323.  move.l (a0)+,d1
  324.  
  325. ; bra pastscrinto
  326. ;
  327. ; 
  328. ;pastscrinto 
  329.  
  330.  swap d1
  331.  
  332.  move.w d1,d6
  333.  and.w HORAND,d6
  334.  move.l (a0)+,d2
  335.  swap d2
  336.  add.w fromtile(pc),d6
  337.  add.w d6,d6
  338.  move.w d6,a5
  339.  move.l (a0)+,d3
  340.  swap d3
  341.  add.l #divthreetab,a5
  342.  move.w (a5),StripData
  343.  
  344.  move.l ChunkAddr,a5
  345.  moveq #0,d6
  346.  move.b StripData,d6
  347.  add.w d6,d6
  348.  move.w VALSHIFT,d4
  349.  asl.l d4,d6
  350.  add.l d6,a5
  351.  move.l (a0)+,d4
  352.  swap d4
  353.  addq #1,d4
  354.  move.w d2,d6
  355. ***************************
  356. * old version
  357.  asr.w #7,d6
  358. ***************************
  359. ; asr.w #3,d6
  360. ; sub.w #4,d6
  361. ; cmp.w #6,d6
  362. ; blt.s tstbrbr
  363. ; move.w #6,d6
  364. ;tstbrbr:
  365. ***************************
  366.  move.l (a0)+,d5
  367.  swap d5
  368.  move.w d7,-(a7)
  369.  ext.w d5
  370.  move.w d6,d7
  371.  add.w d5,d7
  372.  bge.s .brnotneg
  373.  moveq #0,d7
  374. .brnotneg
  375.  cmp.w #62,d7
  376.  blt.s .brnotpos
  377.  move.w #62,d7
  378. .brnotpos
  379.  
  380.  move.l (a0)+,d5
  381.  swap d5
  382.  ext.w d5
  383.  add.w d5,d6
  384.  bge.s .brnotneg2
  385.  moveq #0,d6
  386. .brnotneg2
  387.  cmp.w #62,d6
  388.  blt.s .brnotpos2
  389.  move.w #62,d6
  390. .brnotpos2
  391.  
  392.  asr.w #1,d6
  393.  asr.w #1,d7
  394.  sub.w d6,d7
  395.  
  396.  move.l PaletteAddr,a4
  397. ; move.l a2,a4
  398. ; add.w ffscrpickhowbright(pc,d6*2),a2
  399. ; and.b #$fe,d6
  400. ; add.w ffscrpickhowbright(pc,d6*2),a4
  401.  
  402. ; btst #0,d0
  403. ; beq .nobrightswap
  404. ; exg a2,a4
  405. ;.nobrightswap:
  406.  
  407.  bsr ScreenWallstripdrawGOUR
  408.  move.w (a7)+,d7
  409.  
  410.  dbra d7,scrdrawlopGDOUB
  411.  
  412.  rts
  413.  
  414.  
  415. scrdrawlopGB:
  416.  
  417.  move.w (a0)+,d0
  418.  move.l FASTBUFFER,a3
  419.  lea (a3,d0.w),a3
  420.  move.l (a0)+,d1
  421.  
  422. ; bra pastscrinto
  423. ;
  424. ; 
  425. ;pastscrinto 
  426.  
  427.  swap d1
  428.  
  429.  move.w d1,d6
  430.  and.w HORAND,d6
  431.  move.l (a0)+,d2
  432.  swap d2
  433.  add.w fromtile(pc),d6
  434.  add.w d6,d6
  435.  move.w d6,a5
  436.  move.l (a0)+,d3
  437.  swap d3
  438.  add.l #divthreetab,a5
  439.  move.w (a5),StripData
  440.  
  441.  move.l ChunkAddr,a5
  442.  moveq #0,d6
  443.  move.b StripData,d6
  444.  add.w d6,d6
  445.  move.w VALSHIFT,d4
  446.  asl.l d4,d6
  447.  add.l d6,a5
  448.  move.l (a0)+,d4
  449.  swap d4
  450.  addq #1,d4
  451.  move.w d2,d6
  452. ***************************
  453. * old version
  454.  asr.w #7,d6
  455. ***************************
  456. ; asr.w #3,d6
  457. ; sub.w #4,d6
  458. ; cmp.w #6,d6
  459. ; blt.s tstbrbr
  460. ; move.w #6,d6
  461. ;tstbrbr:
  462. ***************************
  463.  move.l (a0)+,d5
  464.  swap d5
  465.  move.w d7,-(a7)
  466.  ext.w d5
  467.  move.w d6,d7
  468.  add.w d5,d7
  469.  bge.s .brnotneg
  470.  moveq #0,d7
  471. .brnotneg
  472.  cmp.w #62,d7
  473.  blt.s .brnotpos
  474.  move.w #62,d7
  475. .brnotpos
  476.  
  477.  move.l (a0)+,d5
  478.  swap d5
  479.  ext.w d5
  480.  add.w d5,d6
  481.  bge.s .brnotneg2
  482.  moveq #0,d6
  483. .brnotneg2
  484.  cmp.w #62,d6
  485.  blt.s .brnotpos2
  486.  move.w #62,d6
  487. .brnotpos2
  488.  
  489.  asr.w #1,d6
  490.  asr.w #1,d7
  491.  sub.w d6,d7
  492.  
  493.  move.l PaletteAddr,a4
  494. ; move.l a2,a4
  495. ; add.w ffscrpickhowbright(pc,d6*2),a2
  496. ; and.b #$fe,d6
  497. ; add.w ffscrpickhowbright(pc,d6*2),a4
  498.  
  499. ; btst #0,d0
  500. ; beq .nobrightswap
  501. ; exg a2,a4
  502. ;.nobrightswap:
  503.  
  504.  bsr ScreenWallstripdrawGOURB
  505.  move.w (a7)+,d7
  506.  
  507.  dbra d7,scrdrawlopGB
  508.  
  509.  rts
  510.  
  511. itsbilloddy:
  512.  add.w #4+4+4+4+4+4,a0
  513.  dbra d7,scrdrawlopGDOUB
  514.  rts
  515.  
  516. scrdrawlopGBDOUB:
  517.  
  518.  move.w (a0)+,d0
  519.  btst #0,d0
  520.  bne.s itsbilloddy
  521.  move.l FASTBUFFER,a3
  522.  lea (a3,d0.w),a3
  523.  move.l (a0)+,d1
  524.  
  525. ; bra pastscrinto
  526. ;
  527. ; 
  528. ;pastscrinto 
  529.  
  530.  swap d1
  531.  
  532.  move.w d1,d6
  533.  and.w HORAND,d6
  534.  move.l (a0)+,d2
  535.  swap d2
  536.  add.w fromtile(pc),d6
  537.  add.w d6,d6
  538.  move.w d6,a5
  539.  move.l (a0)+,d3
  540.  swap d3
  541.  add.l #divthreetab,a5
  542.  move.w (a5),StripData
  543.  
  544.  move.l ChunkAddr,a5
  545.  moveq #0,d6
  546.  move.b StripData,d6
  547.  add.w d6,d6
  548.  move.w VALSHIFT,d4
  549.  asl.l d4,d6
  550.  add.l d6,a5
  551.  move.l (a0)+,d4
  552.  swap d4
  553.  addq #1,d4
  554.  move.w d2,d6
  555. ***************************
  556. * old version
  557.  asr.w #7,d6
  558. ***************************
  559. ; asr.w #3,d6
  560. ; sub.w #4,d6
  561. ; cmp.w #6,d6
  562. ; blt.s tstbrbr
  563. ; move.w #6,d6
  564. ;tstbrbr:
  565. ***************************
  566.  move.l (a0)+,d5
  567.  swap d5
  568.  move.w d7,-(a7)
  569.  ext.w d5
  570.  move.w d6,d7
  571.  add.w d5,d7
  572.  bge.s .brnotneg
  573.  moveq #0,d7
  574. .brnotneg
  575.  cmp.w #62,d7
  576.  blt.s .brnotpos
  577.  move.w #62,d7
  578. .brnotpos
  579.  
  580.  move.l (a0)+,d5
  581.  swap d5
  582.  ext.w d5
  583.  add.w d5,d6
  584.  bge.s .brnotneg2
  585.  moveq #0,d6
  586. .brnotneg2
  587.  cmp.w #62,d6
  588.  blt.s .brnotpos2
  589.  move.w #62,d6
  590. .brnotpos2
  591.  
  592.  asr.w #1,d6
  593.  asr.w #1,d7
  594.  sub.w d6,d7
  595.  
  596.  move.l PaletteAddr,a4
  597. ; move.l a2,a4
  598. ; add.w ffscrpickhowbright(pc,d6*2),a2
  599. ; and.b #$fe,d6
  600. ; add.w ffscrpickhowbright(pc,d6*2),a4
  601.  
  602. ; btst #0,d0
  603. ; beq .nobrightswap
  604. ; exg a2,a4
  605. ;.nobrightswap:
  606.  
  607.  bsr ScreenWallstripdrawGOURB
  608.  move.w (a7)+,d7
  609.  
  610.  dbra d7,scrdrawlopGBDOUB
  611.  
  612.  rts
  613.  
  614. walldrawGOUR:
  615.  
  616.  tst.w d1
  617.  bgt.s oneinfront1G
  618.  tst.w d3
  619.  bgt.s oneinfrontG
  620.  rts
  621.  
  622. oneinfront1G
  623.  tst.w d3
  624.  ble.s oneinfrontG
  625. ; Bothinfront!
  626.  
  627.  nop
  628.  
  629. oneinfrontG
  630.  
  631.  move.w #64,d7
  632.  move.w #4,d6
  633.  
  634.  move.w d3,d0
  635.  sub.w d1,d0
  636.  bge.s notnegzdiffG
  637.  neg.w d0
  638. notnegzdiffG
  639. ; cmp.w #1024,d0
  640. ; blt.s nd01G
  641. ; add.w d7,d7
  642. ; add.w #1,d6
  643. ;nd01G:
  644.  cmp.w #512,d0
  645.  blt.s nd0G 
  646.  add.w d7,d7
  647.  add.w #1,d6
  648.  bra nhaG
  649. nd0G:
  650.  
  651.  cmp.w #256,d0
  652.  bgt.s nh1G
  653.  asr.w #1,d7
  654.  subq #1,d6
  655. nh1G:
  656.  cmp.w #128,d0
  657.  bgt.s nh2G
  658.  asr.w #1,d7
  659.  subq #1,d6
  660. nh2G:
  661.  
  662. nhaG:
  663.  
  664.  move.w d3,d0
  665.  cmp.w d1,d3
  666.  blt.s rightnearestG
  667.  move.w d1,d0
  668. rightnearestG:
  669.  cmp.w #64,d0
  670.  bgt.s nd1G
  671.  addq #1,d6
  672.  add.w d7,d7
  673. nd1G:
  674.  
  675.  cmp.w #128,d0
  676.  blt.s nh3G
  677.  asr.w #1,d7
  678.  subq #1,d6
  679.  blt.s nh3G
  680.  cmp.w #256,d0
  681.  blt.s nh3G
  682.  asr.w #1,d7
  683.  subq #1,d6
  684. nh3G:
  685.  move.w d6,iters
  686.  subq #1,d7
  687.  move.w d7,multcount
  688.  
  689.  move.l #databuffer,a3
  690.  move.l a0,d0
  691.  move.l a2,d2
  692.  
  693.  move.l d0,(a3)+
  694.  add.l d2,d0
  695.  move.w d1,(a3)+
  696.  move.w leftwallTOPbright,d7
  697.  move.w d7,(a3)+
  698.  asr.l #1,d0
  699.  move.w d4,(a3)+
  700.  
  701.  move.w leftwallbright,d6
  702.  move.w d6,(a3)+
  703.  
  704.  add.w d5,d4
  705.  move.l d0,(a3)+
  706.  add.w d3,d1
  707.  asr.w #1,d1
  708.  move.w d1,(a3)+
  709.  
  710.  add.w rightwallTOPbright,d7
  711.  asr.w #1,d7
  712.  move.w d7,(a3)+
  713.  
  714.  asr.w #1,d4
  715.  move.w d4,(a3)+
  716.  
  717.  add.w rightwallbright,d6
  718.  asr.w #1,d6
  719.  move.w d6,(a3)+
  720.  
  721.  
  722.  move.l d2,(a3)+
  723.  move.w d3,(a3)+
  724.  move.w rightwallTOPbright,(a3)+
  725.  move.w d5,(a3)+
  726.  move.w rightwallbright,(a3)+
  727.  
  728.  ; We now have the two endpoints and the midpoint
  729.  ; so we need to perform 1 iteration of the inner
  730.  ; loop, the first time.
  731.  
  732. * Decide how often to subdivide by how far away the wall is, and
  733. * how perp. it is to the player.
  734.  
  735.  move.l #databuffer,a0
  736.  move.l #databuffer2,a1
  737.  
  738.  swap d7
  739.  move.w iters,d7
  740.  blt noitersG
  741.  move.l #1,a2
  742.  
  743. iterloopG:
  744.  move.l a0,a3
  745.  move.l a1,a4
  746.  swap d7
  747.  move.w a2,d7
  748.  exg a0,a1
  749.  
  750.  move.l (a3)+,d0
  751.  move.l (a3)+,d1
  752.  move.l (a3)+,d2
  753. middleloopG:
  754.  move.l d0,(a4)+
  755.  move.l (a3)+,d3
  756.  add.l d3,d0
  757.  move.l d1,(a4)+
  758.  asr.l #1,d0
  759.  move.l (a3)+,d4
  760.  add.l d4,d1
  761.  move.l d2,(a4)+
  762.  asr.l #1,d1
  763.  and.w #$7fff,d1
  764.  move.l (a3)+,d5
  765.  add.l d5,d2
  766.  move.l d0,(a4)+
  767.  asr.l #1,d2
  768.  move.l d1,(a4)+
  769.  move.l d2,(a4)+
  770.  
  771.  move.l d3,(a4)+
  772.  move.l (a3)+,d0
  773.  add.l d0,d3
  774.  
  775.  move.l d4,(a4)+
  776.  asr.l #1,d3
  777.  move.l (a3)+,d1
  778.  add.l d1,d4
  779.  move.l d5,(a4)+
  780.  asr.l #1,d4
  781.  and.w #$7fff,d4
  782.  move.l (a3)+,d2
  783.  add.l d2,d5
  784.  move.l d3,(a4)+
  785.  asr.l #1,d5
  786.  move.l d4,(a4)+
  787.  move.l d5,(a4)+
  788.  
  789.  subq #1,d7
  790.  bgt.s middleloopG
  791.  move.l d0,(a4)+
  792.  move.l d1,(a4)+
  793.  move.l d2,(a4)+
  794.  
  795.  add.w a2,a2
  796.  
  797.  swap d7
  798.  dbra d7,iterloopG
  799.  
  800. noitersG:
  801.  
  802. CalcAndDrawG:
  803.  
  804. ; CACHE_ON d2
  805.  
  806.  move.l a0,a1
  807.  move.w multcount,d7
  808. .findfirstinfront:
  809.  move.l (a1)+,d1
  810.  move.w (a1)+,d0
  811.  bgt.s .foundinfront
  812.  move.l (a1)+,d4
  813.  move.w (a1)+,d4
  814.  dbra d7,.findfirstinfront
  815.  rts    ; no two points were in front
  816.  
  817. .foundinfront:
  818.  move.w (a1)+,tlbr
  819.  move.w (a1)+,d4
  820.  move.w (a1)+,lbr
  821.  ; d1=left x, d4=left end, d0=left dist 
  822.  
  823.  divs d0,d1
  824.  add.w MIDDLEX,d1
  825.  
  826.  move.l topofwall(pc),d5
  827.  divs d0,d5
  828.  add.w MIDDLEY,d5
  829.  move.w d5,strtop
  830.  move.l botofwall(pc),d5
  831.  divs d0,d5
  832.  add.w MIDDLEY,d5
  833.  move.w d5,strbot
  834.  
  835. .computeloop:
  836.  move.w 4(a1),d2
  837.  bgt.s .infront
  838.  rts
  839.  
  840. .infront:
  841.  move.l #store,a0
  842.  move.l (a1),d3
  843.  divs d2,d3
  844.  move.w 8(a1),d5
  845.  add.w MIDDLEX,d3
  846.  move.w strtop(pc),12(a0)
  847.  move.l topofwall(pc),d6
  848.  divs d2,d6
  849.  move.w strbot(pc),16(a0)
  850.  add.w MIDDLEY,d6
  851.  move.w d6,strtop
  852.  move.w d6,14(a0)
  853.  move.l botofwall(pc),d6
  854.  divs d2,d6
  855.  add.w MIDDLEY,d6
  856.  move.w d6,strbot
  857.  move.w d6,18(a0)
  858.  move.w d3,2(a1)
  859.  cmp.w leftclip(pc),d3
  860.  blt .alloffleft
  861.  cmp.w rightclip(pc),d1
  862. ; cmp.w #95,d1
  863.  bge .alloffright
  864.  
  865.  movem.l d0/d1/d2/d3/a0,-(a7)
  866.  
  867.  moveq #0,d0
  868.  move.b WALLIDENT,d0
  869.  blt.s .noputinmap
  870.  
  871.  move.b d0,d3
  872.  and.b #15,d0
  873.  move.l COMPACTPTR,a0
  874.  moveq #0,d1
  875.  move.w d0,d2
  876.  add.w d0,d0
  877.  add.w d2,d0
  878.  bset d0,d1
  879.  btst #4,d3
  880.  beq.s .nodoor
  881.  addq #2,d0
  882.  bset d0,d1
  883. .nodoor:
  884.  
  885.  or.l d1,(a0)
  886.  move.l BIGPTR,a0
  887.  
  888.  move.w wallleftpt,(a0,d2.w*4) 
  889.  move.w wallrightpt,2(a0,d2.w*4) 
  890.  
  891. .noputinmap
  892.  
  893.  movem.l (a7)+,d0/d1/d2/d3/a0
  894.  
  895.  bra OTHERHALFG
  896.  
  897.  
  898. .alloffleft:
  899.  
  900.  move.l (a1)+,d1
  901.  move.w (a1)+,d0
  902.  move.w (a1)+,tlbr
  903.  move.w (a1)+,d4
  904.  move.w (a1)+,lbr
  905.  
  906.  dbra d7,.computeloop
  907.  rts
  908.  
  909. .alloffright:
  910.  rts
  911.  
  912. computeloop2G:
  913.  move.w 4(a1),d2
  914.  bgt.s .infront
  915.  rts
  916.  
  917. .infront:
  918.  move.l #store,a0
  919.  move.l (a1),d3
  920.  divs d2,d3
  921.  move.w 8(a1),d5
  922.  add.w MIDDLEX,d3
  923.  move.w strtop(pc),12(a0)
  924.  move.l topofwall(pc),d6
  925.  divs d2,d6
  926.  move.w strbot(pc),16(a0)
  927.  add.w MIDDLEY,d6
  928.  move.w d6,strtop
  929.  move.w d6,14(a0)
  930.  move.l botofwall(pc),d6
  931.  divs d2,d6
  932.  add.w MIDDLEY,d6
  933.  move.w d6,strbot
  934.  move.w d6,18(a0)
  935.  move.w d3,2(a1)
  936.  cmp.w leftclip(pc),d3
  937.  blt.s alloffleft2G
  938.  cmp.w rightclip(pc),d1
  939. ; cmp.w #95,d1
  940.  bge.s alloffright2G
  941.  
  942. OTHERHALFG:
  943.  
  944.  move.w d1,(a0)
  945.  move.w d3,2(a0)
  946.  move.w d4,4(a0)
  947.  move.w d5,6(a0)
  948.  move.w d0,8(a0)
  949.  move.w d2,10(a0)
  950.  
  951.  move.w lbr,d5
  952.  sub.w #300,d5
  953.  ext.w d5
  954.  move.w d5,24(a0)
  955.  move.w 10(a1),d5
  956.  sub.w #300,d5
  957.  ext.w d5
  958.  move.w d5,26(a0)
  959.  
  960.  move.w tlbr,d5
  961.  sub.w #300,d5
  962.  ext.w d5
  963.  move.w d5,32(a0)
  964.  move.w 6(a1),d5
  965.  sub.w #300,d5
  966.  ext.w d5
  967.  move.w d5,34(a0)
  968.  
  969.  movem.l d7/a1,-(a7)
  970.  move.w #maxscrdiv,d7
  971.  bsr DoleftendGOUR
  972.  movem.l (a7)+,d7/a1
  973.  
  974. alloffleft2G:
  975.  
  976.  move.l (a1)+,d1
  977.  move.w (a1)+,d0
  978.  move.w (a1)+,tlbr
  979.  move.w (a1)+,d4
  980.  move.w (a1)+,lbr
  981.  
  982.  dbra d7,computeloop2G
  983.  
  984.  rts
  985.  
  986. alloffright2G:
  987.  rts
  988.  
  989.  
  990. ***********************************
  991.  
  992. * Need a routine which takes...?
  993. * Top Y (3d)
  994. * Bottom Y (3d)
  995. * distance
  996. * height of each tile (number and routine addr)
  997. * And produces the appropriate strip on the
  998. * screen.
  999.  
  1000.  
  1001. nostripqG:
  1002.  rts
  1003.  
  1004. STARTGOUR: dc.l 0
  1005.  
  1006. ScreenWallstripdrawGOUR:
  1007.  
  1008.  swap d6
  1009.  clr.w d6
  1010.  move.l d6,STARTGOUR
  1011.  
  1012.  swap d7
  1013.  clr.w d7
  1014.  
  1015.  move.w d4,d6
  1016.  sub.w d3,d6
  1017.  beq.s nostripqG
  1018.  ext.l d6
  1019.  
  1020.  divs.l d6,d7    ; speed through gouraud table.
  1021.  
  1022.  move.w d4,d6
  1023.  cmp.w topclip(pc),d6
  1024.  blt.s nostripqG
  1025.  cmp.w botclip(pc),d3
  1026.  bgt.s nostripqG
  1027.  
  1028.  cmp.w botclip(pc),d6
  1029.  ble.s noclipbotG
  1030.  move.w botclip(pc),d6
  1031. noclipbotG:
  1032.  
  1033.  move.w d3,d5
  1034.  cmp.w topclip(pc),d5
  1035.  bge.s nocliptopG
  1036.  
  1037.  sub.w topclip(pc),d5
  1038.  neg.w d5
  1039.  ext.l d5
  1040.  move.l d7,d0
  1041.  muls.l d5,d0
  1042.  add.l d0,STARTGOUR
  1043.  
  1044.  move.w topclip(pc),d5
  1045.  
  1046.  
  1047. ; bra gotoendG
  1048. ; 
  1049. nocliptopG:
  1050. ; 
  1051.  
  1052.  bra gotoendG
  1053.  
  1054.  CNOP 0,128 
  1055. drawwallPACK0G:
  1056.  swap d4
  1057.  and.w d7,d4
  1058.  move.l d3,d2
  1059.  swap d2
  1060.  move.b 1(a5,d4.w*2),d1
  1061.  and.w #%1111111111100000,d2
  1062.  swap d4
  1063.  and.b #31,d1
  1064.  add.w d1,d2
  1065.  move.b (a4,d2.w*2),(a3)
  1066.  adda.w d0,a3
  1067.  add.l d5,d3
  1068.  add.l a2,d4
  1069.  dbra d6,drawwallPACK0G
  1070.  
  1071. nostripG:
  1072.  rts
  1073.  
  1074.  
  1075.  CNOP 0,4 
  1076. drawwallPACK1G:
  1077.  swap d4
  1078.  and.w d7,d4
  1079.  move.l d3,d2
  1080.  swap d2
  1081.  move.w (a5,d4.w*2),d1
  1082.  and.w #%1111111111100000,d2
  1083.  swap d4
  1084.  lsr.w #5,d1
  1085.  and.w #31,d1
  1086.  add.b d1,d2
  1087.  move.b (a4,d2.w*2),(a3)
  1088.  adda.w d0,a3
  1089.  add.l d5,d3
  1090.  add.l a2,d4
  1091.  dbra d6,drawwallPACK1G
  1092.  
  1093.  rts
  1094.  
  1095.  
  1096.  CNOP 0,4 
  1097. drawwallPACK2G:
  1098.  swap d4
  1099.  and.w d7,d4
  1100.  move.l d3,d2
  1101.  swap d2
  1102.  move.b (a5,d4.w*2),d1
  1103.  and.w #%1111111111100000,d2
  1104.  swap d4
  1105.  lsr.b #2,d1
  1106.  and.w #31,d1
  1107.  add.b d1,d2
  1108.  move.b (a4,d2.w*2),(a3)
  1109.  adda.w d0,a3
  1110.  add.l d5,d3
  1111.  add.l a2,d4
  1112.  dbra d6,drawwallPACK2G
  1113.  rts
  1114.  
  1115.  
  1116. usesimpleG:
  1117.  mulu d3,d4
  1118.  
  1119.  add.l d0,d4
  1120.  swap d4
  1121.  add.w totalyoff(pc),d4
  1122.  
  1123. cliptopusesimpleG
  1124.  move.w VALAND,d7
  1125.  move.w #320,d0
  1126.  moveq #0,d1
  1127.  
  1128.  swap d2
  1129.  
  1130.  ifne CHEESEY
  1131.  asr.l #1,d2
  1132.  endc
  1133.  move.l d2,a2
  1134.  swap d4
  1135.  ifne CHEESEY
  1136.  asr.l #1,d4
  1137.  endc
  1138.  
  1139.  move.l GOURSPEED,d5
  1140.  asl.l #5,d5
  1141.  move.l STARTGOUR,d3
  1142.  asl.l #5,d3
  1143.  
  1144.  cmp.b #1,StripData+1
  1145.  dbge d6,simplewalliPACK0G
  1146.  dbne d6,simplewalliPACK1G
  1147.  dble d6,simplewalliPACK2G
  1148.  rts
  1149.  
  1150.  CNOP 0,4
  1151. simplewalliPACK0G:
  1152.  swap d4
  1153.  and.w d7,d4
  1154.  move.l d3,d2
  1155.  swap d2
  1156.  move.b 1(a5,d4.w*2),d1
  1157.  and.w #%1111111111100000,d2
  1158.  swap d4
  1159.  and.b #31,d1
  1160.  add.b d1,d2
  1161.  move.b (a2,d2.w*2),d3
  1162. simplewallPACK0G:
  1163.  move.b d3,(a3)
  1164.  adda.w d0,a3
  1165.  add.l a2,d4
  1166.  bcc.s .noread
  1167.  addq #1,d4
  1168.  and.w d7,d4
  1169.  move.b 1(a5,d4.w*2),d1
  1170.  and.b #31,d1
  1171.  move.b (a2,d1.w*2),d3
  1172. .noread:
  1173.  dbra d6,simplewallPACK0G
  1174.  rts
  1175.  
  1176.  CNOP 0,4
  1177. simplewalliPACK1G:
  1178.  swap d4
  1179.  and.w d7,d4
  1180.  move.l d3,d2
  1181.  swap d2
  1182.  move.w (a5,d4.w*2),d1
  1183.  lsr.w #5,d1
  1184.  and.w #31,d1
  1185.  move.b (a2,d1.w*2),d3
  1186. simplewallPACK1G:
  1187.  move.b d3,(a3)
  1188.  adda.w d0,a3
  1189.  add.l d5,d4
  1190.  bcc.s .noread
  1191.  addq #1,d4
  1192.  and.w d7,d4
  1193.  move.w (a5,d4.w*2),d1
  1194.  lsr.w #5,d1
  1195.  and.w #31,d1
  1196.  move.b (a2,d1.w*2),d3
  1197. .noread:
  1198.  dbra d6,simplewallPACK1G
  1199.  rts
  1200.  
  1201.  CNOP 0,4
  1202. simplewalliPACK2G:
  1203.  move.b (a5,d4.w*2),d1
  1204.  lsr.b #2,d1
  1205.  and.b #31,d1
  1206.  move.b (a2,d1.w*2),d3
  1207. simplewallPACK2G:
  1208.  move.b d3,(a3)
  1209.  adda.w d0,a3
  1210.  add.l d5,d4
  1211.  bcc.s .noread
  1212.  addq #1,d4
  1213.  and.w d7,d4
  1214.  move.b (a5,d4.w*2),d1
  1215.  lsr.b #2,d1
  1216.  move.b (a2,d1.w*2),d3
  1217. .noread:
  1218.  dbra d6,simplewallPACK2G
  1219.  rts
  1220.  
  1221. ;gotoendnomult:
  1222. ; movem.l d0/d1/d2/d3/d4/d7,-(a7)
  1223. ; add.l timeslarge(pc,d5.w*4),a3 
  1224. ; move.w d5,d4
  1225. ; move.l 4(a1,d2.w*8),d0
  1226. ; move.l (a1,d2.w*8),d2
  1227. ; moveq #0,d3
  1228. ; move.w d2,d3
  1229. ; swap d2
  1230. ; tst.w d2
  1231. ; move.w wallyoff(pc),d4
  1232. ; add.w #44,d4
  1233. ; bne.s .notsimple
  1234. ; cmp.l #$b000,d3
  1235. ; ble cliptopusesimple
  1236. ;.notsimple:
  1237. ; bra cliptop
  1238.  
  1239. GOURSPEED: dc.l 0
  1240.  
  1241. gotoendG:
  1242.  tst.b DOUBLEHEIGHT
  1243.  bne doubwallGOUR
  1244.  
  1245.  sub.w d5,d6    ; height to draw.
  1246.  ble nostripqG
  1247.  
  1248.  move.l d7,GOURSPEED
  1249.  
  1250.  add.l timeslargeG(pc,d5.w*4),a3 
  1251.  
  1252.  add.w d2,d2
  1253.  
  1254.  move.l 4(a1,d2.w*8),d0
  1255.  add.w TOPOFFSET(pc),d5
  1256.  move.w d5,d4
  1257.  
  1258.  move.l (a1,d2.w*4),d2
  1259.  moveq #0,d3
  1260. ; move.w d2,d3
  1261. ; swap d2
  1262. ; tst.w d2
  1263. ; bne.s .notsimple
  1264. ; cmp.l #$b000,d3
  1265. ; ble usesimple
  1266. ;.notsimple:
  1267.  
  1268.  ext.l d5
  1269.  move.l d2,d4
  1270.  muls.l d5,d4
  1271.  
  1272. ; mulu d3,d4
  1273. ; muls d2,d5
  1274.  add.l d0,d4
  1275.  ifne CHEESEY
  1276.  asr.l #1,d4
  1277.  endc
  1278.  swap d4
  1279. ; add.w d5,d4
  1280.  add.w totalyoff(pc),d4
  1281. cliptopG
  1282.  move.w VALAND,d7
  1283.  and.w d7,d4
  1284.  move.w #320,d0
  1285.  moveq #0,d1
  1286.  
  1287.  ifne CHEESEY
  1288.  asr.l #1,d2
  1289.  endc
  1290.  move.l d2,a2
  1291.  swap d4
  1292.  
  1293.  move.l GOURSPEED,d5
  1294.  asl.l #5,d5
  1295.  move.l STARTGOUR,d3
  1296.  asl.l #5,d3
  1297.  
  1298.  cmp.b #1,StripData+1
  1299.  dbge d6,drawwallPACK0G
  1300.  dbne d6,drawwallPACK1G
  1301.  dble d6,drawwallPACK2G
  1302.  rts
  1303.  
  1304. timeslargeG:
  1305. val SET 0
  1306.  REPT 256
  1307.  dc.l val
  1308. val SET val+320
  1309.  ENDR
  1310.  
  1311. doubwallGOUR:
  1312.  
  1313.  moveq #0,d0
  1314.  asr.w #1,d5
  1315.  addx.w d0,d5
  1316.  add.w d5,d5
  1317.  
  1318.  sub.w d5,d6    ; height to draw.
  1319.  asr.w #1,d6
  1320.  ble nostripqG
  1321.  
  1322.  move.l d7,GOURSPEED
  1323.  
  1324.  add.l timeslargeGDOUB(pc,d5.w*4),a3 
  1325.  
  1326.  add.w d2,d2
  1327.  
  1328.  move.l 4(a1,d2.w*8),d0
  1329.  add.w TOPOFFSET(pc),d5
  1330.  move.w d5,d4
  1331.  
  1332.  move.l (a1,d2.w*4),d2
  1333.  moveq #0,d3
  1334. ; move.w d2,d3
  1335. ; swap d2
  1336. ; tst.w d2
  1337. ; bne.s .notsimple
  1338. ; cmp.l #$b000,d3
  1339. ; ble usesimple
  1340. ;.notsimple:
  1341.  
  1342.  ext.l d5
  1343.  move.l d2,d4
  1344.  muls.l d5,d4
  1345.  
  1346. ; mulu d3,d4
  1347. ; muls d2,d5
  1348.  add.l d0,d4
  1349.  ifne CHEESEY
  1350.  asr.l #1,d4
  1351.  endc
  1352.  swap d4
  1353. ; add.w d5,d4
  1354.  add.w totalyoff(pc),d4
  1355.  move.w VALAND,d7
  1356.  and.w d7,d4
  1357.  move.w #640,d0
  1358.  moveq #0,d1
  1359.  
  1360.  ifeq CHEESEY
  1361.  add.l d2,d2
  1362.  endc
  1363.  move.l d2,a2
  1364.  swap d4
  1365.  
  1366.  move.l GOURSPEED,d5
  1367.  asl.l #6,d5
  1368.  move.l STARTGOUR,d3
  1369.  asl.l #5,d3
  1370.  
  1371.  cmp.b #1,StripData+1
  1372.  dbge d6,drawwallPACK0G
  1373.  dbne d6,drawwallPACK1G
  1374.  dble d6,drawwallPACK2G
  1375.  rts
  1376.  
  1377. timeslargeGDOUB:
  1378. val SET 0
  1379.  REPT 256
  1380.  dc.l val
  1381. val SET val+320
  1382.  ENDR
  1383.  
  1384.  
  1385.  
  1386. ScreenWallstripdrawGOURB:
  1387.  
  1388.  swap d6
  1389.  clr.w d6
  1390.  move.l d6,STARTGOUR
  1391.  
  1392.  swap d7
  1393.  clr.w d7
  1394.  
  1395.  move.w d4,d6
  1396.  sub.w d3,d6
  1397.  beq nostripqG
  1398.  ext.l d6
  1399.  
  1400.  divs.l d6,d7    ; speed through gouraud table.
  1401.  
  1402.  move.w d4,d6
  1403.  cmp.w topclip(pc),d6
  1404.  blt nostripqG
  1405.  cmp.w botclip(pc),d3
  1406.  bgt nostripqG
  1407.  
  1408.  cmp.w botclip(pc),d6
  1409.  ble.s noclipbotGb
  1410.  move.w botclip(pc),d6
  1411. noclipbotGb:
  1412.  
  1413.  move.w d3,d5
  1414.  cmp.w topclip(pc),d5
  1415.  bge.s nocliptopGB
  1416.  
  1417.  sub.w topclip(pc),d5
  1418.  neg.w d5
  1419.  ext.l d5
  1420.  move.l d7,d0
  1421.  muls.l d5,d0
  1422.  add.l d0,STARTGOUR
  1423.  
  1424.  move.w topclip(pc),d5
  1425.  
  1426. nocliptopGB:
  1427.  
  1428.  
  1429.  
  1430. gotoendGB:
  1431.  
  1432.  tst.b DOUBLEHEIGHT
  1433.  bne doubwallGOURBIG
  1434.  
  1435.  sub.w d5,d6    ; height to draw.
  1436.  ble nostripqG
  1437.  move.l d7,GOURSPEED
  1438.  
  1439.  add.l timeslargeGB(pc,d5.w*4),a3 
  1440.  
  1441.  move.w d2,d4
  1442.  add.w d2,d2
  1443.  add.w d2,d4
  1444.  
  1445.  move.l 4(a1,d4.w*8),d0
  1446.  add.w TOPOFFSET(pc),d5
  1447.  move.w d5,d4
  1448.  
  1449.  move.l (a1,d2.w*4),d2
  1450.  moveq #0,d3
  1451. ; move.w d2,d3
  1452. ; swap d2
  1453. ; tst.w d2
  1454. ; bne.s .notsimple
  1455. ; cmp.l #$b000,d3
  1456. ; ble usesimple
  1457. ;.notsimple:
  1458.  
  1459.  ext.l d5
  1460.  move.l d2,d4
  1461.  muls.l d5,d4
  1462.  
  1463. ; mulu d3,d4
  1464. ; muls d2,d5
  1465.  add.l d0,d4
  1466.  ifne CHEESEY
  1467.  asr.l #1,d4
  1468.  endc
  1469.  swap d4
  1470. ; add.w d5,d4
  1471.  add.w totalyoff(pc),d4
  1472.  move.w VALAND,d7
  1473.  and.w d7,d4
  1474.  move.w #320,d0
  1475.  moveq #0,d1
  1476.  
  1477.  ifne CHEESEY
  1478.  asr.l #1,d2
  1479.  endc
  1480.  
  1481.  move.l d2,a2
  1482.  swap d4
  1483.  
  1484.  
  1485.  move.l GOURSPEED,d5
  1486.  asl.l #5,d5
  1487.  move.l STARTGOUR,d3
  1488.  asl.l #5,d3
  1489.  
  1490.  cmp.b #1,StripData+1
  1491.  dbge d6,drawwallPACK0G
  1492.  dbne d6,drawwallPACK1G
  1493.  dble d6,drawwallPACK2G
  1494.  rts
  1495.  
  1496. timeslargeGB:
  1497. val SET 0
  1498.  REPT 256
  1499.  dc.l val
  1500. val SET val+320
  1501.  ENDR
  1502.  
  1503.  
  1504. doubwallGOURBIG:
  1505.  
  1506.  moveq #0,d0
  1507.  asr.w #1,d5
  1508.  addx.w d0,d5
  1509.  add.w d5,d5
  1510.  
  1511.  sub.w d5,d6    ; height to draw.
  1512.  asr.w #1,d6
  1513.  ble nostripqG
  1514.  move.l d7,GOURSPEED
  1515.  
  1516.  add.l timeslargeGBDOUB(pc,d5.w*4),a3 
  1517.  
  1518.  move.w d2,d4
  1519.  add.w d2,d2
  1520.  add.w d2,d4
  1521.  
  1522.  move.l 4(a1,d4.w*8),d0
  1523.  add.w TOPOFFSET(pc),d5
  1524.  move.w d5,d4
  1525.  
  1526.  move.l (a1,d2.w*4),d2
  1527.  moveq #0,d3
  1528. ; move.w d2,d3
  1529. ; swap d2
  1530. ; tst.w d2
  1531. ; bne.s .notsimple
  1532. ; cmp.l #$b000,d3
  1533. ; ble usesimple
  1534. ;.notsimple:
  1535.  
  1536.  ext.l d5
  1537.  move.l d2,d4
  1538.  muls.l d5,d4
  1539.  
  1540. ; mulu d3,d4
  1541. ; muls d2,d5
  1542.  add.l d0,d4
  1543.  ifne CHEESEY
  1544.  asr.l #1,d4
  1545.  endc
  1546.  swap d4
  1547. ; add.w d5,d4
  1548.  add.w totalyoff(pc),d4
  1549.  move.w VALAND,d7
  1550.  
  1551.  and.w d7,d4
  1552.  move.w #640,d0
  1553.  moveq #0,d1
  1554.  
  1555.  ifeq CHEESEY
  1556.  add.l d2,d2
  1557.  endc
  1558.  move.l d2,a2
  1559.  swap d4
  1560.  
  1561.  
  1562.  move.l GOURSPEED,d5
  1563.  asl.l #6,d5
  1564.  move.l STARTGOUR,d3
  1565.  asl.l #5,d3
  1566.  
  1567.  cmp.b #1,StripData+1
  1568.  dbge d6,drawwallPACK0G
  1569.  dbne d6,drawwallPACK1G
  1570.  dble d6,drawwallPACK2G
  1571.  rts
  1572.  
  1573. timeslargeGBDOUB:
  1574. val SET 0
  1575.  REPT 256
  1576.  dc.l val
  1577. val SET val+320
  1578.  ENDR
  1579.